(thing-at-point-file-name-chars): Include non-ASCII

and use documented treatment of -.

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 47caf02b03a3340de270f00f81526c8969595bba..3723caf76fdfc5fc6b34f83302c769e0f45dbe39 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -193,9 +193,9 @@ a symbol as a valid THING."
 (put 'list 'end-op (function (lambda () (up-list 1))))
 (put 'list 'beginning-op 'backward-sexp)
 
-;;  Filenames and URLs
+;;  Filenames and URLs  www.com/foo%32bar
 
-(defvar thing-at-point-file-name-chars "~/A-Za-z0-9---_.${}#%,:"
+(defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:"
   "Characters allowable in filenames.")
 
 (put 'filename 'end-op